home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY9.PRG < prev   
Text File  |  1993-07-28  |  1KB  |  42 lines
  1. m.crlf = chr(13)+chr(10)
  2. for m.i = 1 to 22
  3.     m.form = "form" + alltrim(str(m.i))
  4.     m.dbfile = m.form + ".dbf"
  5.     for m.j = 1 to 13
  6.         m.k = m.j + 1
  7.         m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
  8.         m.nextletter = iif(m.k = 0, "", chr(m.k-1+asc("A")))
  9.         m.scrfile = m.form +  alltrim(m.letter) + ".scx"
  10.         m.nextscrfile = m.form +  alltrim(m.nextletter) + ".scx"
  11.         ?m.scrfile
  12.         select 0
  13.         if not file(m.scrfile) or not file(m.nextscrfile)
  14.             exit
  15.         endif
  16.         use &scrfile alias screen
  17.         go top
  18.         
  19.         * Take care of screen setup and cleanup code.
  20.         locate for screen.objtype=1
  21.         m.proccode = "if m.domore" + m.crlf + "    do " + m.form + ;
  22.             alltrim(m.nextletter) + ".spr" + m.crlf + "endif" + m.crlf
  23.         m.setupcode = "m.domore = .F." + m.crlf
  24.         gather memvar memo fields screen.proccode, screen.setupcode
  25.         
  26.         * Make the Next button terminating and add a valid clase
  27.         go top
  28.         locate for screen.objtype=12
  29.         do while not eof()
  30.             m.picture = screen.picture
  31.             if at("Ne\<xt Pag", m.picture) > 0
  32.                 m.picture = '"@*TH Ne\<xt Page"'
  33.                 replace screen.picture with m.picture
  34.                 m.valid = "m.domore = .T." + m.crlf
  35.                 gather memvar memo fields screen.valid
  36.             endif
  37.             continue
  38.         enddo
  39.         use
  40.     endfor
  41. endfor
  42.